object FWyborKlienta: TFWyborKlienta
  Left = 0
  Top = 0
  BorderStyle = bsDialog
  Caption = 'Wyb'#243'r klient'#243'w'
  ClientHeight = 468
  ClientWidth = 696
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poOwnerFormCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 16
    Top = 408
    Width = 665
    Height = 9
    Shape = bsTopLine
  end
  object twAppleBox1: TtwAppleBox
    Left = 16
    Top = 24
    Width = 401
    Height = 171
    BevelOuter = bvNone
    Caption = 'twAppleBox1'
    TabOrder = 0
    AppleItems = <
      item
        Top = 6
        Height = 28
        Alignment = taLeftJustify
        AppleType = atDBLabel
        IsOn = True
        LabelCaption = 'Nazwa'
        LabelWidth = 100
        DataField = 'CUSTNAME'
        DataSource = dsKlient
        AutoWidth = True
        DisplayName = 'AppleItem0'
        iLabelCaption = 'Nazwa'
        iLabelValue = ''
      end
      item
        Top = 40
        Height = 28
        Alignment = taLeftJustify
        AppleType = atDBLabel
        IsOn = True
        LabelCaption = 'Miasto'
        LabelWidth = 100
        DataField = 'CITY'
        DataSource = dsKlient
        AutoWidth = True
        DisplayName = 'AppleItem1'
        iLabelCaption = 'Miasto'
        iLabelValue = ''
      end
      item
        Top = 74
        Height = 28
        Alignment = taLeftJustify
        AppleType = atDBLabel
        IsOn = True
        LabelCaption = 'Ulica'
        LabelWidth = 100
        DataField = 'ADDRESS1'
        DataSource = dsKlient
        AutoWidth = True
        DisplayName = 'AppleItem2'
        iLabelCaption = 'Ulica'
        iLabelValue = ''
      end
      item
        Top = 108
        Height = 28
        Alignment = taLeftJustify
        AppleType = atDBLabel
        IsOn = True
        LabelCaption = 'Kontakt'
        LabelWidth = 100
        DataField = 'CNTCPRSN'
        DataSource = dsKlient
        AutoWidth = True
        DisplayName = 'AppleItem3'
        iLabelCaption = 'Kontakt'
        iLabelValue = ''
      end
      item
        Top = 142
        Height = 28
        Alignment = taLeftJustify
        AppleType = atDBLabel
        IsOn = True
        LabelCaption = 'Handlowiec'
        LabelWidth = 100
        DataField = 'SLPRSNID'
        DataSource = dsKlient
        AutoWidth = True
        DisplayName = 'AppleItem4'
        iLabelCaption = 'Handlowiec'
        iLabelValue = ''
      end>
    LabelWidth = 100
    DesignSize = (
      401
      171)
  end
  object DBGridEh1: TDBGridEh
    Left = 16
    Top = 208
    Width = 401
    Height = 161
    DataSource = dsKlient
    Flat = False
    FooterColor = clWindow
    FooterFont.Charset = DEFAULT_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -11
    FooterFont.Name = 'Tahoma'
    FooterFont.Style = []
    OddRowColor = clCream
    Options = [dgTitles, dgColumnResize, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    ReadOnly = True
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'Tahoma'
    TitleFont.Style = []
    OnDblClick = btAddOneClick
    Columns = <
      item
        EditButtons = <>
        FieldName = 'CUSTNMBR'
        Footers = <>
        Title.Caption = 'ID Klienta'
        Width = 112
      end
      item
        EditButtons = <>
        FieldName = 'CUSTNAME'
        Footers = <>
        Title.Caption = 'Nazwa Klienta'
        Width = 266
      end>
  end
  object lbKlienci: TListBox
    Left = 488
    Top = 24
    Width = 193
    Height = 370
    ItemHeight = 13
    Sorted = True
    TabOrder = 2
    OnDblClick = btDelOneClick
  end
  object edId: TEdit
    Left = 16
    Top = 375
    Width = 113
    Height = 19
    BevelInner = bvNone
    BevelOuter = bvNone
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 3
    OnChange = edChange
  end
  object edNazwa: TEdit
    Left = 128
    Top = 375
    Width = 289
    Height = 19
    BevelInner = bvNone
    BevelOuter = bvNone
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 4
    OnChange = edChange
  end
  object Button1: TButton
    Left = 612
    Top = 431
    Width = 75
    Height = 25
    Cancel = True
    Caption = 'Anuluj'
    TabOrder = 5
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 512
    Top = 431
    Width = 75
    Height = 25
    Caption = 'OK'
    Default = True
    TabOrder = 6
    OnClick = Button2Click
  end
  object btAddOne: TButton
    Left = 432
    Top = 240
    Width = 41
    Height = 25
    Caption = '>'
    TabOrder = 7
    OnClick = btAddOneClick
  end
  object btDelOne: TButton
    Left = 432
    Top = 279
    Width = 41
    Height = 25
    Caption = '<'
    TabOrder = 8
    OnClick = btDelOneClick
  end
  object btDelAll: TButton
    Left = 432
    Top = 312
    Width = 41
    Height = 25
    Caption = '<<'
    TabOrder = 9
    OnClick = btDelAllClick
  end
  object cbSieci: TAdvComboBox
    Left = 224
    Top = 431
    Width = 193
    Height = 21
    Color = clWindow
    Version = '1.2.5.2'
    Visible = True
    DropWidth = 0
    Enabled = True
    ItemIndex = -1
    ItemHeight = 13
    LabelCaption = 'Klienci sieci handlowych'
    LabelPosition = lpLeftCenter
    LabelMargin = 10
    LabelFont.Charset = DEFAULT_CHARSET
    LabelFont.Color = clWindowText
    LabelFont.Height = -11
    LabelFont.Name = 'Tahoma'
    LabelFont.Style = []
    TabOrder = 10
    OnClick = cbSieciClick
  end
  object qKlient: TADOQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=gogen;Persist Security Info=True;Us' +
      'er ID=sa;Initial Catalog=two;Data Source=inspiron;Use Procedure ' +
      'for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation I' +
      'D=INSPIRON;Use Encryption for Data=False;Tag with column collati' +
      'on when possible=False'
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select CUSTNMBR, CUSTNAME, SALSTERR, SLPRSNID, CITY, ADDRESS1, C' +
        'NTCPRSN'
      'FROM RM00101'
      'order by CUSTNMBR')
    Left = 552
    Top = 184
  end
  object dsKlient: TDataSource
    DataSet = qKlient
    Left = 552
    Top = 128
  end
  object qTemp: TADOQuery
    Parameters = <>
    Left = 560
    Top = 256
  end
end
